(set-face-attribute 'default nil :height 100) ; the value is in 1/10pt

(push '("\\.h$" . c++-mode) auto-mode-alist)
(push '("\\.ipp$" . c++-mode) auto-mode-alist)
(push '("\\.C$" . c++-mode) auto-mode-alist)
(push '("\\.pl$" . cperl-mode) auto-mode-alist)
(push '("perl" . cperl-mode) interpreter-mode-alist)
(push '("perl5" . cperl-mode) interpreter-mode-alist)
;(defalias 'perl-mode 'cperl-mode)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; My setting of global variables.

(custom-set-variables
 '(case-fold-search t)
 ;;'(current-language-environment "UTF-8")
 '(current-language-environment "Chinese-GB") ;; this ensures HZ to be showen correctly
 '(default-input-method "yisp-input-method")
 '(global-font-lock-mode t nil (font-lock))
 '(show-paren-mode t nil (paren))
 '(text-mode-hook (quote (turn-on-auto-fill text-mode-hook-identify)))
 '(transient-mark-mode t)
 '(uniquify-buffer-name-style (quote forward) nil (uniquify))

 ;; cperl mode
 '(cperl-close-paren-offset -4)
 '(cperl-continued-statement-offset 4)
 '(cperl-indent-level 4)
 '(cperl-indent-parens-as-block t)
 '(cperl-tab-always-indent t)
 )

;;;; Gnus
(setq user-mail-address "duzy@duzy.info")
(setq user-full-name "Duzy Chan")
;;(setq gnus-select-method '(nntp "news.gnu.org"))
;;(setq gnus-select-method '(nntp "news.individual.net"))
;;(setq gnus-select-method '(nntp "news.sunsite.dk"))
;;(setq gnus-select-method '(nntp "nntp.perl.org"))
(setq gnus-select-method '(nntp "nntp.aioe.org"))
;;(setq gnus-select-method '(nntp "groups.google.com"))
;; (add-to-list 'gnus-secondary-select-methods '(nntp "gnu.emacs.help"))

;;;; Shell (I like Bash).
(setenv "ESHELL" "bash")
(setenv "SHELL" "bash")
(setq explicit-shell-file-name "bash")
(setq shell-file-name "bash")
